home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / java / main.pas < prev    next >
Pascal/Delphi Source File  |  1996-04-08  |  5KB  |  234 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, StdCtrls, Buttons,
  8.   HH,INTRO,LEJA,SPEC,JS,CODES, MPlayer,AB;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Image1: TImage;
  13.     intr: TBitBtn;
  14.     lj: TBitBtn;
  15.     js: TBitBtn;
  16.     s: TBitBtn;
  17.     ia: TBitBtn;
  18.     hi: TBitBtn;
  19.     hg: TBitBtn;
  20.     scl: TBitBtn;
  21.     Image2: TImage;
  22.     Label1: TLabel;
  23.     MediaPlayer1: TMediaPlayer;
  24.     Timer1: TTimer;
  25.     ListBox1: TListBox;
  26.     BitBtn1: TBitBtn;
  27.     Button1: TButton;
  28.     procedure hiClick(Sender: TObject);
  29.     procedure hgClick(Sender: TObject);
  30.     procedure intrClick(Sender: TObject);
  31.     procedure iaClick(Sender: TObject);
  32.     procedure ljClick(Sender: TObject);
  33.     procedure sClick(Sender: TObject);
  34.     procedure jsClick(Sender: TObject);
  35.     procedure sclClick(Sender: TObject);
  36.     procedure Timer1Timer(Sender: TObject);
  37.     procedure intrMouseMove(Sender: TObject; Shift: TShiftState; X,
  38.       Y: Integer);
  39.     procedure ljMouseMove(Sender: TObject; Shift: TShiftState; X,
  40.       Y: Integer);
  41.     procedure jsMouseMove(Sender: TObject; Shift: TShiftState; X,
  42.       Y: Integer);
  43.     procedure sMouseMove(Sender: TObject; Shift: TShiftState; X,
  44.       Y: Integer);
  45.     procedure iaMouseMove(Sender: TObject; Shift: TShiftState; X,
  46.       Y: Integer);
  47.     procedure hiMouseMove(Sender: TObject; Shift: TShiftState; X,
  48.       Y: Integer);
  49.     procedure hgMouseMove(Sender: TObject; Shift: TShiftState; X,
  50.       Y: Integer);
  51.     procedure sclMouseMove(Sender: TObject; Shift: TShiftState; X,
  52.       Y: Integer);
  53.     procedure Image1Click(Sender: TObject);
  54.     procedure BitBtn1Click(Sender: TObject);
  55.     procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  56.       Y: Integer);
  57.     procedure FormShow(Sender: TObject);
  58.     procedure Button1Click(Sender: TObject);
  59.   private
  60.     { Private declarations }
  61.   public
  62.     { Public declarations }
  63.   end;
  64.  
  65. var
  66.   Form1: TForm1;
  67.   star:integer;
  68.   get,e:Boolean;
  69.  
  70. implementation
  71.  
  72. {$R *.DFM}
  73.  
  74. procedure TForm1.hiClick(Sender: TObject);
  75. begin
  76.      FORM2.LABEL1.CAPTION:='HYPER INTERACTIVITY';
  77.      FORM2.MEMO1.LINES.LOADFROMFILE('\TEXT\HYPER.TXT');
  78.      FORM2.MEMO2.LINES.LOADFROMFILE('\TEXT\HYPER.TXT');
  79.      FORM2.SHOW;
  80. end;
  81.  
  82. procedure TForm1.hgClick(Sender: TObject);
  83. begin
  84.      FORM2.LABEL1.CAPTION:='HTML GLOSSARY';
  85.      FORM2.MEMO1.LINES.LOADFROMFILE('\TEXT\HTML.TXT');
  86.      FORM2.MEMO2.LINES.LOADFROMFILE('\TEXT\HTML.TXT');
  87.      FORM2.SHOW;
  88. end;
  89.  
  90. procedure TForm1.intrClick(Sender: TObject);
  91. begin
  92.      FORM3.LABEL1.CAPTION:='INTRODUCTION';
  93.      FORM3.FE.CAPTION:='FEATURE';
  94.      FORM3.HI.CAPTION:='JAVA HISTORY';
  95.      FORM3.INS.CAPTION:='INSIDE STORY';
  96.      FORM3.TAG:=1;
  97.      FORM3.SHOW;
  98. end;
  99.  
  100. procedure TForm1.iaClick(Sender: TObject);
  101. begin
  102.      FORM3.LABEL1.CAPTION:='INTRODUCING AWTS';
  103.      FORM3.FE.CAPTION:='CHAPTER 1';
  104.      FORM3.HI.CAPTION:='CHAPTER 2';
  105.      FORM3.INS.CAPTION:='CHAPTER 3';
  106.      FORM3.TAG:=2;
  107.      FORM3.SHOW;
  108. end;
  109.  
  110. procedure TForm1.ljClick(Sender: TObject);
  111. begin
  112.      FORM4.SHOW;
  113. end;
  114.  
  115. procedure TForm1.sClick(Sender: TObject);
  116. begin
  117.      FORM5.SHOW;
  118. end;
  119.  
  120. procedure TForm1.jsClick(Sender: TObject);
  121. begin
  122. FORM6.SHOW
  123. end;
  124.  
  125. procedure TForm1.sclClick(Sender: TObject);
  126. begin
  127. FORM7.SHOW;
  128. end;
  129.  
  130. procedure TForm1.Timer1Timer(Sender: TObject);
  131. begin
  132. with mediaplayer1 do
  133. if tracklength[1]=position then
  134. begin
  135. star:=star+1;
  136. filename:=listbox1.items[star];
  137. open;
  138. play;
  139. if star=5 then star:=-1;
  140. end;
  141. end;
  142.  
  143. procedure TForm1.intrMouseMove(Sender: TObject; Shift: TShiftState; X,
  144.   Y: Integer);
  145. begin
  146. intr.setfocus;
  147. end;
  148.  
  149. procedure TForm1.ljMouseMove(Sender: TObject; Shift: TShiftState; X,
  150.   Y: Integer);
  151. begin
  152. lj.setfocus;
  153. end;
  154.  
  155. procedure TForm1.jsMouseMove(Sender: TObject; Shift: TShiftState; X,
  156.   Y: Integer);
  157. begin
  158. js.setfocus;
  159. end;
  160.  
  161. procedure TForm1.sMouseMove(Sender: TObject; Shift: TShiftState; X,
  162.   Y: Integer);
  163. begin
  164. s.setfocus;
  165. end;
  166.  
  167. procedure TForm1.iaMouseMove(Sender: TObject; Shift: TShiftState; X,
  168.   Y: Integer);
  169. begin
  170. ia.setfocus;
  171. end;
  172.  
  173. procedure TForm1.hiMouseMove(Sender: TObject; Shift: TShiftState; X,
  174.   Y: Integer);
  175. begin
  176. hi.setfocus;
  177. end;
  178.  
  179. procedure TForm1.hgMouseMove(Sender: TObject; Shift: TShiftState; X,
  180.   Y: Integer);
  181. begin
  182. hg.setfocus;
  183. end;
  184.  
  185. procedure TForm1.sclMouseMove(Sender: TObject; Shift: TShiftState; X,
  186.   Y: Integer);
  187. begin
  188. scl.setfocus;
  189. end;
  190.  
  191. procedure TForm1.Image1Click(Sender: TObject);
  192. begin
  193. close;
  194. end;
  195.  
  196. procedure TForm1.BitBtn1Click(Sender: TObject);
  197. begin
  198. with mediaplayer1 do
  199. begin
  200. filename:='\rock.wav';
  201. open;
  202. wait:=true;
  203. play;
  204. end;
  205. close;
  206. end;
  207.  
  208. procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  209.   Y: Integer);
  210. begin
  211. bitbtn1.setfocus;
  212.  
  213. end;
  214.  
  215. procedure TForm1.FormShow(Sender: TObject);
  216. begin
  217. IMAGE1.PICTURE.LOADFROMFILE('\MAIN.BMP');
  218. star:=-1;
  219. get:=False;
  220. with mediaplayer1 do
  221. begin
  222. filename:='\soft4.wav';
  223. open;
  224. play;
  225. end;
  226. end;
  227.  
  228. procedure TForm1.Button1Click(Sender: TObject);
  229. begin
  230. ABOUTBOX.SHOW
  231. end;
  232.  
  233. end.
  234.